home *** CD-ROM | disk | FTP | other *** search
/ Megaware 1 / Megaware Volume 1.iso / utils / infoplus / page_18.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-08  |  1.1 KB  |  33 lines
  1. procedure page_18;
  2.   var
  3.     xbyte: byte;
  4.  
  5.   begin
  6.   TextColor(White);
  7.   GotoXY((twidth div 2) - 15, 1);
  8.   Writeln('Thank You for using INFOPLUS!!');
  9.   Writeln;
  10.   TextColor(LightCyan);
  11.   Writeln('  If you have any questions, bug reports, or suggestions, I can be');
  12.   Writeln('reached at the following places:');
  13.   Writeln;
  14.   TextColor(LightRed);
  15.   Writeln('Internet Mail  : andyross@infopls.UUCP or andyross@ddsw1.MCS.COM');
  16.   Writeln('Unix Mail      : ..!uunet!ddsw1!infopls!andyross');
  17.   Writeln('RelayNet Mail  : ->METASYS');
  18.   Writeln('Infoplus BBS   : (708)537-0247 (1200/2400)');
  19.   Writeln('RCS Defender   : (708)390-6603 (1200/2400, 2 lines)');
  20.   Writeln('Mainframe      : (708)364-0425 (1200/2400/9600 HST)');
  21.   Writeln('Beacon         : (708)615-0845 (1200/2400)');
  22.   Writeln('ddsw1          : (708)808-7300 (1200/2400, 6 lines)');
  23.   Writeln('                 (708)808-7305 (PEP)');
  24.   Window(1, tlength - 2, twidth, tlength - 2);
  25.   xbyte:=TextAttr;
  26.   TextColor(White);
  27.   TextBackground(Brown);
  28.   ClrScr;
  29.   Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
  30.   TextAttr:=xbyte;
  31.   end;
  32.  
  33.